home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / wb / DropIt.lha / DropIt! / Install.installer < prev    next >
Text File  |  1994-08-08  |  4KB  |  151 lines
  1. ; Installation script for Installer
  2.  
  3. ; Create destination directory
  4.  
  5. (if (= @user-level 2)
  6.     (set @default-dest
  7.                       (askdir
  8.                              (prompt "Please give the directory where you want all DropIt! files to be put")
  9.                              (help @askdir-help)
  10.                              (default @default-dest)
  11.                              (newpath)
  12.                       )
  13.     )
  14.     (set @default-dest (tackon @default-dest "DropIt!"))
  15. )
  16.  
  17. ; Copy DropIt!
  18.  
  19. (copyfiles
  20.         (source "DropIt!")
  21.         (dest @default-dest)
  22.         (infos)
  23.         (optional "fail" "force" "askuser")
  24. )
  25.  
  26. ; Copy DropIt! handler
  27.  
  28. (copylib
  29.         (source "L/DropIt!Handler")
  30.         (dest "L:")
  31.         (optional "fail" "force" "askuser")
  32. )
  33.  
  34. ; Copy whatis.library
  35.  
  36. (copylib
  37.         (source "Libs/whatis.library")
  38.         (dest "LIBS:")
  39.         (optional "fail" "force" "askuser")
  40. )
  41.  
  42. ; Copy utilities and powerpacker.library
  43.  
  44. (set answer
  45.            (askbool
  46.                    (prompt "Do you want to copy the Utilities directory ?")
  47.                    (help "The Utilities directory contains 4 little programs :\n\n - Decrunch (an archive utility),\n - PlaySample (an 8SVX player),\n - ShowILBM (an ILBM reader),\n - ShowText (a text viewer).")
  48.                    (default 1)
  49.            )
  50. )
  51.  
  52. (if answer
  53.           (
  54.            (set dest-dir (tackon @default-dest "Utilities"))
  55.            (copyfiles
  56.                      (source "Utilities")
  57.                      (dest dest-dir)
  58.                      (all)
  59.                      (infos)
  60.                      (optional "nofail" "force" "askuser")
  61.            )
  62.            (copylib
  63.                    (source "Libs/powerpacker.library")
  64.                    (dest "LIBS:")
  65.                    (optional "fail" "force" "askuser")
  66.            )
  67.           )
  68.           (set x 0)
  69. )
  70.  
  71. ; Copy icons
  72.  
  73. (set answer
  74.            (askbool
  75.                    (prompt "Do you want to copy the Icons directory ?")
  76.                    (help "The Icons directory contains some icons for DropIt!. If you don't copy it, DropIt! will use its default icon.")
  77.                    (default 1)
  78.            )
  79. )
  80.  
  81. (if answer
  82.           (
  83.            (set dest-dir (tackon @default-dest "Icons"))
  84.            (copyfiles
  85.                      (source "Icons")
  86.                      (dest dest-dir)
  87.                      (all)
  88.                      (infos)
  89.                      (optional "nofail" "force" "askuser")
  90.            )
  91.           )
  92.           (set x 0)
  93. )
  94.  
  95. ; Create DropIt!.prefs files
  96.  
  97. (run ("CreatePrefsFile \"%s\"" @default-dest))
  98.  
  99. ; Copy examples
  100.  
  101. (set answer
  102.            (askbool
  103.                    (prompt "Do you want to copy the Examples directory ?")
  104.                    (help "The Examples directory contains some files (texts, sounds, pictures) wich can be used to test DropIt!.")
  105.                    (default 1)
  106.            )
  107. )
  108.  
  109. (if answer
  110.           (
  111.            (set dest-dir (tackon @default-dest "Examples"))
  112.            (copyfiles
  113.                      (source "Examples")
  114.                      (dest dest-dir)
  115.                      (all)
  116.                      (infos)
  117.                      (optional "nofail" "force" "askuser")
  118.            )
  119.           )
  120.           (set x 0)
  121. )
  122.  
  123. ; Copy docs
  124.  
  125. (set answer
  126.            (askbool
  127.                    (prompt "Do you want to copy the Docs ?")
  128.                    (help "The docs are relative to the following programs :\n\n - DropIt!,\n - Decrunch,\n - PlaySample,\n - ShowILBM,\n - ShowText.")
  129.                    (default 1)
  130.            )
  131. )
  132.  
  133. (if answer
  134.           (
  135.            (set dest-dir (tackon @default-dest "Docs"))
  136.            (set language (run "CheckFrench"))
  137.            (if (= language 5)
  138.                (set source-dir "FrenchDocs")
  139.                (set source-dir "EnglishDocs")
  140.            )
  141.            (copyfiles
  142.                      (source source-dir)
  143.                      (dest dest-dir)
  144.                      (all)
  145.                      (infos)
  146.                      (optional "nofail" "force" "askuser")
  147.            )
  148.           )
  149.           (set x 0)
  150. )
  151.